home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / Unsupported / Optionals / DriveStatus < prev    next >
Text File  |  1986-10-01  |  800b  |  33 lines
  1. \ Implementation of the function DriveStatus
  2. \  9/26/86  cdn
  3.  
  4. 0 variable DrvrRec 46 allot
  5.  
  6. \ ( drv# -- )
  7. : DriveStatus
  8.     DrvrRec 50 erase
  9.     8 DrvrRec 26 + w!
  10.     -5 DrvrRec 24 + w!
  11.     DrvrRec 22 + w!
  12.     DrvrRec fcall PBStatus
  13.     ." return code " . cr
  14. ;
  15.  
  16. : x
  17.     DriveStatus
  18.     DrvrRec 28 + w@ ." current track " . cr
  19.     DrvrRec 30 + c@ ." write protect " . cr
  20.     DrvrRec 31 + c@ ." disk in place *** " . cr
  21.     DrvrRec 32 + c@ ." drive installed " . cr
  22.     DrvrRec 33 + c@ ." single sided " . cr
  23.     DrvrRec 34 +  @ ." next queue entry " . cr
  24.     DrvrRec 38 + w@ ." not used " . cr
  25.     DrvrRec 40 + w@ ." drive# " . cr
  26.     DrvrRec 42 + w@ ." driver reference# " . cr
  27.     DrvrRec 44 + w@ ." FSID " . cr
  28.     DrvrRec 46 + c@ ." two-sided disk " . cr
  29.     DrvrRec 47 + c@ ." needs flush " . cr
  30.     DrvrRec 48 + w@ ." error count " . cr
  31.     DrvrRec killPtr
  32. ;
  33.